home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 011 / vectors.pqs / vectors.pas
Pascal/Delphi Source File  |  1986-01-31  |  5KB  |  138 lines
  1. program vectors;
  2. type
  3.   vectorName = string[30];
  4.   hexWord    = string[5];
  5. function hex(v:integer) : hexWord;
  6. const
  7.   map :array [0..15] of char = '0123456789ABCDEF';
  8. var
  9.  tmp : hexWord;
  10. begin
  11.  tmp[5]:=map[(v and $7fff) mod 16];
  12.  tmp[4]:=map[(v shr 4) mod 16];
  13.  tmp[3]:=map[(v shr 8) mod 16];
  14.  tmp[2]:=map[(v shr 12) mod 16];
  15.  tmp[1]:='$';
  16.  tmp[0]:=#5;
  17.  hex:=tmp;
  18.  end;
  19. procedure printVector(v:integer;s:vectorName);
  20. var
  21.  a,b,c,d : integer;
  22. begin
  23. a:=Mem[0000:v*4];
  24. b:=Mem[0000:v*4+1];
  25. c:=Mem[0000:v*4+2];
  26. d:=Mem[0000:v*4+3];
  27. writeln(hex(v),s:30,' ',hex((d shl 8) + c),':',hex((b shl 8) + a));
  28. end;
  29. begin
  30. printVector($00,'Divide by zero');
  31. printVector($01,'Single step');
  32. printVector($02,'Non-maskable interrupt');
  33. printVector($03,'Break software interrupt');
  34. printVector($04,'Overflow trap');
  35. printVector($05,'reserved');
  36. printVector($06,'reserved');
  37. printVector($07,'reserved');
  38. printVector($08,'reserved');
  39. printVector($09,'reserved');
  40. printVector($0A,'reserved');
  41. printVector($0B,'reserved');
  42. printVector($0C,'reserved');
  43. printVector($0D,'reserved');
  44. printVector($0E,'reserved');
  45. printVector($0F,'reserved');
  46. printVector($10,'reserved');
  47. printVector($11,'reserved');
  48. printVector($12,'reserved');
  49. printVector($13,'reserved');
  50. printVector($14,'reserved');
  51. printVector($15,'reserved');
  52. printVector($16,'reserved');
  53. printVector($17,'reserved');
  54. printVector($18,'reserved');
  55. printVector($19,'reserved');
  56. printVector($1A,'reserved');
  57. printVector($1B,'reserved');
  58. printVector($1C,'reserved');
  59. printVector($1D,'reserved');
  60. printVector($1E,'reserved');
  61. printVector($1F,'reserved');
  62. printVector($20,'MS-DOS reserved');
  63. printVector($21,'MS-DOS reserved');
  64. printVector($22,'MS-DOS reserved');
  65. printVector($23,'MS-DOS reserved');
  66. printVector($24,'MS-DOS reserved');
  67. printVector($25,'MS-DOS reserved');
  68. printVector($26,'MS-DOS reserved');
  69. printVector($27,'MS-DOS reserved');
  70. printVector($28,'MS-DOS reserved');
  71. printVector($29,'MS-DOS reserved');
  72. printVector($2A,'MS-DOS reserved');
  73. printVector($2B,'MS-DOS reserved');
  74. printVector($2C,'MS-DOS reserved');
  75. printVector($2D,'MS-DOS reserved');
  76. printVector($2E,'MS-DOS reserved');
  77. printVector($2F,'MS-DOS reserved');
  78. printVector($30,'MS-DOS reserved');
  79. printVector($31,'MS-DOS reserved');
  80. printVector($32,'MS-DOS reserved');
  81. printVector($33,'MS-DOS reserved');
  82. printVector($34,'MS-DOS reserved');
  83. printVector($35,'MS-DOS reserved');
  84. printVector($36,'MS-DOS reserved');
  85. printVector($37,'MS-DOS reserved');
  86. printVector($38,'MS-DOS reserved');
  87. printVector($39,'MS-DOS reserved');
  88. printVector($3A,'MS-DOS reserved');
  89. printVector($3B,'MS-DOS reserved');
  90. printVector($3C,'MS-DOS reserved');
  91. printVector($3D,'MS-DOS reserved');
  92. printVector($3E,'MS-DOS reserved');
  93. printVector($3F,'MS-DOS reserved');
  94. printVector($40,'8259 interrupt 0');
  95. printVector($41,'8259 interrupt 1');
  96. printVector($42,'8259 interrupt 2');
  97. printVector($43,'8259 interrupt 3');
  98. printVector($44,'8259 interrupt 4');
  99. printVector($45,'8259 interrupt 5');
  100. printVector($46,'8259 interrupt 6');
  101. printVector($47,'8259 interrupt 7');
  102. printVector($48,'Speaker DSR interface');
  103. printVector($49,'CRT DSR interface');
  104. printVector($4A,'Keyboard DSR interface');
  105. printVector($4B,'Parallel Port DSR interface');
  106. printVector($4C,'Clock and Analog interface board');
  107. printVector($4D,'Disk DSR interface');
  108. printVector($4E,'Time-of-day clock DSR interface');
  109. printVector($4F,'System configuration call');
  110. printVector($50,'Fatal software error');
  111. printVector($51,'Restart timing event');
  112. printVector($52,'Cancel timing event');
  113. printVector($53,'SVC interface subroutine');
  114. printVector($54,'Activate task subroutine');
  115. printVector($55,'Reserved for future use');
  116. printVector($56,'Reserved for future use');
  117. printVector($57,'CRT mapping vector');
  118. printVector($58,'System timing, 25 ms (time slicing)');
  119. printVector($59,'Common interrupt exit vector (ROM)');
  120. printVector($5A,'System timing, 100 ms (timing serv.)');
  121. printVector($5B,'Keyboard mapping vector');
  122. printVector($5C,'Keyboard program pause key vector');
  123. printVector($5D,'Keyboard program break key vector');
  124. printVector($5E,'Keyboard print screen vector');
  125. printVector($5F,'Keyboard queuing vector');
  126. printVector($60,'System ROM DS pointer');
  127. printVector($61,'Factory ROM DS pointer');
  128. printVector($62,'Option ROM pointer');
  129. printVector($63,'Option ROM pointer');
  130. printVector($64,'Option ROM pointer');
  131. printVector($65,'Option ROM pointer');
  132. printVector($66,'Memory size in paragraphs');
  133. printVector($67,'Extra system configuration');
  134. end.
  135. 5,'Option ROM pointer');
  136. printVector($66,'Memory size in paragraphs');
  137. printVector($67,'Extra system configuration');
  138. end.